home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / name game.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  13KB  |  399 lines
  1. 100 REM *******************************
  2. 110 REM *******************************
  3. 120 REM ****                       ****
  4. 130 REM ****  BY BRIAN A.MITCHELL  ****
  5. 140 REM ****                       ****
  6. 150 REM ****  BROCKVILLE, ONTARIO  ****
  7. 160 REM ****                       ****
  8. 170 REM ****     613-342-0733      ****
  9. 180 REM ****                       ****
  10. 190 REM ****       JUL 1984        ****
  11. 200 REM ****                       ****
  12. 210 REM ****      TPUG# 2923       ****
  13. 220 REM ****                       ****
  14. 230 REM *******************************
  15. 240 REM *******************************
  16. 250 REM
  17. 260 FORL=54272TO54296:POKEL,0:NEXT:L=0
  18. 270 DIML$(30):DIMNB(300):DIMSC(300):DIMT(300):PL=1
  19. 280 POKE53280,0:POKE53281,0:PRINT"[147][152]":POKE54296,15
  20. 290 PRINT""
  21. 300 PRINTTAB(13)" THE NAME GAME "
  22. 310 PRINT""
  23. 320 PRINTTAB(22)"BY-BRIAN MITCHELL"
  24. 330 FORT=1TO3000:NEXTT:PRINT"[147]"
  25. 340 PRINTTAB(14)"THE NAME GAME"
  26. 350 PRINTTAB(14)"[197][197][197][197][197][197][197][197][197][197][197][197][197]"
  27. 360 PRINT"INSTRUCTIONS"
  28. 370 PRINT""
  29. 380 PRINT"ENTER ONE LETTER AT A TIME TO DETERMINE THE SOLUTION."
  30. 390 PRINT
  31. 400 PRINT"THERE IS  A  FIFTEEN SECOND  TIME LIMIT BETWEEN ENTERING LETTERS."
  32. 410 PRINT
  33. 420 PRINT"WHEN YOU HAVE THE  SOLUTION  PRESS  THE  F1 [146] KEY."
  34. 430 PRINT
  35. 440 PRINT"YOU MAY USE UP TO FIFTEEN LETTERS."
  36. 450 PRINT"ENTER NUMBER OF PLAYERS (1-5)> [185]";
  37. 460 GETX$:IFX$=""THEN480
  38. 470 GOTO520
  39. 480 FORT=1TO600:NEXTT
  40. 490 PRINT"                                "
  41. 500 FORT=1TO300:NEXTT
  42. 510 GOTO450
  43. 520 X=VAL(X$):PRINT"[157]";X$
  44. 530 IFX<1ORX>5THENPRINT"[145][145][145]":GOTO450
  45. 540 IFX>1THENAP=1
  46. 550 PRINT""
  47. 560 PRINTTAB(5)" PRESS SPACE BAR [221] [146]F2 = SCORE [155]"
  48. 570 GETAN$:IFAN$=""THEN570
  49. 580 IFAN$="[137]"THEN3690
  50. 590 IFAN$<>CHR$(32)THEN570
  51. 600 PRINT"[147]"
  52. 610 PRINT""TAB(28)"[158] VALUE [146][152] +++"
  53. 620 PRINT">>>>>>[152]"
  54. 630 PRINT"[152] CLUE "
  55. 640 PRINT" TIME [146] --"
  56. 650 IFX>1THENPRINT""TAB(30);"PLAYER [192]"
  57. 660 PRINT"                                       [152]"
  58. 670 PRINT"[152] LETTERS USED [146][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  59. 680 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  60. 690 CS=VAL(MID$(TI$,5,7)):UN=272-CS
  61. 700 NB=INT(CS+(UN-CS+1)*RND(1)):RESTORE
  62. 710 FORBN=0TOF
  63. 720 IFNB(BN)=NBTHENCS=1:UN=272:GOTO700
  64. 730 NEXTBN:F=F+1:NB(F)=NB
  65. 740 POKE54277,28:POKE54278,255:POKE54276,17
  66. 750 FORCL=1TO22
  67. 760 POKE54273,CL+F
  68. 770 FORT=1TO5:NEXTT
  69. 780 PRINT""TAB(CL)" [146][152] NUMBER";F;"[157] "
  70. 790 POKE54273,22+F
  71. 800 FORT=1TO10:NEXTT
  72. 810 NEXTCL:POKE54273,0
  73. 820 SC=160
  74. 830 FORCH=1TONB
  75. 840 READK,A$:NEXTCH
  76. 850 DT=INT((40-LEN(A$))/2)-1:GW=0:WG=0
  77. 860 FORA=1TOLEN(A$)
  78. 870 IFMID$(A$,A,1)=" "THEN900
  79. 880 IFMID$(A$,A,1)="'"THEN900
  80. 890 GW=GW+1
  81. 900 NEXTA
  82. 910 IFK=1THENK$="PERSON"
  83. 920 IFK=2THENK$="PLACE"
  84. 930 IFK=3THENK$="THING"
  85. 940 IFK=4THENK$="PHRASE"
  86. 950 IFK=5THENK$="TITLE"
  87. 960 PRINT">>>>>>[152]"
  88. 970 PRINT""
  89. 980 FORT=1TO400:NEXTT
  90. 990 FORA=1TOLEN(A$)
  91. 1000 IFMID$(A$,A,1)="'"THENPRINTTAB(6+A);"[155]'[152]";:SZ=60:GOSUB3250:GOTO1030
  92. 1010 IFMID$(A$,A,1)<>" "THENPRINTTAB(6+A)"[153]-[152]";:SZ=15:GOSUB3250:GOTO1030
  93. 1020 PRINTTAB(6+A);" ";:SZ=30:GOSUB3250
  94. 1030 NEXTA:PRINT
  95. 1040 FORA=1TOLEN(A$)
  96. 1050 PRINTTAB(6+A)"[197][152]";
  97. 1060 NEXTA
  98. 1070 FORT=1TO400:NEXTT
  99. 1080 PRINT"[152] CLUE [146] ";K$
  100. 1090 FORT=1TO600:NEXTT
  101. 1100 PRINT
  102. 1110 GETL$:L$=""
  103. 1120 IFNS=0THENSC=SC-10
  104. 1130 NS=0
  105. 1140 IFSC<100THENPRINT""TAB(35)"    "
  106. 1150 IFSC>-1THENPRINT""TAB(28)"[158] VALUE [146][152]";SC
  107. 1160 IFSC=0THENDN=1:GOTO2040
  108. 1170 IFWP=0THENFORT=1TO400:NEXTT:WP=1
  109. 1180 IFAP=0THEN1280
  110. 1190 POKE54277,28:POKE54278,255:POKE54276,17
  111. 1200 FORDP=1TO5
  112. 1210 PRINT""TAB(29)">PLAYER    "
  113. 1220 POKE54273,200
  114. 1230 FORT=1TO100:NEXTT
  115. 1240 PRINT""TAB(29)" PLAYER";PL
  116. 1250 POKE54273,100
  117. 1260 FORT=1TO100:NEXTT
  118. 1270 NEXTDP:AP=0:POKE54273,0
  119. 1280 PRINT"[152] TIME [146] --"
  120. 1290 POKE54277,28:POKE54278,255:POKE54276,17
  121. 1300 FORDP=1TO3
  122. 1310 PRINT"[152]L     [153] [164] "
  123. 1320 POKE54273,10
  124. 1330 FORT=1TO20:NEXTT
  125. 1340 PRINT"[152]LE    [153] [210] "
  126. 1350 POKE54273,20
  127. 1360 FORT=1TO30:NEXTT
  128. 1370 PRINT"[152]LET   [153] [195] "
  129. 1380 POKE54273,30
  130. 1390 FORT=1TO40:NEXTT
  131. 1400 PRINT"[152]LETT  [153] [196] "
  132. 1410 POKE54273,40
  133. 1420 FORT=1TO50:NEXTT
  134. 1430 PRINT"[152]LETTE [153] [197] "
  135. 1440 POKE54273,50
  136. 1450 FORT=1TO60:NEXTT
  137. 1460 PRINT"[152]LETTER[153] [197] "
  138. 1470 POKE54273,60
  139. 1480 FORT=1TO70:NEXTT
  140. 1490 NEXTDP:POKE54273,0:
  141. 1500 PRINT"[152]LETTER[153] [175]  "
  142. 1510 FORT=1TO80:NEXTT
  143. 1520 FORA=1TOLEN(A$)
  144. 1530 IFMID$(A$,A,1)=" "THEN1550
  145. 1540 PRINT""TAB(6+A)"[197][152]";
  146. 1550 NEXTA
  147. 1560 TI$="000000":CL$="[153]"
  148. 1570 PRINT"[152]LETTER [175]"
  149. 1580 GETL$
  150. 1590 IFTI$="000010"THENCL$="[158]"
  151. 1600 PRINT"";CL$;" TIME [146][152] ";MID$(TI$,5,7)
  152. 1610 IFL$=""ANDTI$<>"000015"THEN1580
  153. 1620 IFTI$="000015"THENGOSUB3810:GOSUB3840:GOTO1100
  154. 1630 PRINT""TAB(7);L$
  155. 1640 FORT=1TO100:NEXTT
  156. 1650 FORU=0TOD
  157. 1660 IFL$<>L$(U)THEN1780
  158. 1670 POKE54277,28:POKE54278,255:POKE54276,33
  159. 1680 FORDP=1TO10
  160. 1690 PRINT" LETTERS USED "
  161. 1700 POKE54273,15
  162. 1710 FORT=1TO50:NEXTT
  163. 1720 PRINT" LETTERS USED "
  164. 1730 POKE54273,0
  165. 1740 FORT=1TO50:NEXTT
  166. 1750 NEXTDP:
  167. 1760 GOSUB3810:IFX>1THENSC=SC+10
  168. 1770 GOTO1120
  169. 1780 NEXTU
  170. 1790 IFL$="[133]"THENNS=1:GOTO2040
  171. 1800 NS=0:C=0
  172. 1810 FORA=1TOLEN(A$)
  173. 1820 IFL$<>MID$(A$,A,1)THEN1840
  174. 1830 C=C+1
  175. 1840 NEXTA
  176. 1850 IFC=0THEN1960
  177. 1860 FORA=1TOLEN(A$)
  178. 1870 IFL$<>MID$(A$,A,1)THEN1930
  179. 1880 IFL$=" "THENGOSUB3220:GOTO1930
  180. 1890 IFL$="'"THENGOSUB3220:GOTO1930
  181. 1900 GOSUB3220:PRINT"[153]"TAB(6+A)"[190][152]";
  182. 1910 PRINT"[155]"TAB(6+A)L$;
  183. 1920 WG=WG+1
  184. 1930 NEXTA
  185. 1940 IFWG=GWTHEN3580
  186. 1950 GOTO1980
  187. 1960 POKE54277,28:POKE54278,255:POKE54276,33:POKE54273,10
  188. 1970 FORT=1TO100:NEXTT:POKE54273,0
  189. 1980 PRINT"[152]"
  190. 1990 D=D+1:L$(D)=L$
  191. 2000 FORU=1TOD
  192. 2010 PRINTL$(U)":";:NEXTU
  193. 2020 IFC=0THENGOSUB3810
  194. 2030 C=0:GOTO1100
  195. 2040 PRINT"[154]            ENTER YOUR GUESS           [146][152]":PRINT
  196. 2050 FORA=1TOLEN(A$)
  197. 2060 IFMID$(A$,A,1)="'"THENPRINTTAB(A+DT)"'";:GOTO2090
  198. 2070 IFMID$(A$,A,1)=" "THENPRINTTAB(A+DT)" ";:GOTO2090
  199. 2080 PRINTTAB(A+DT)"-";
  200. 2090 NEXTA
  201. 2100 TI$="000000":CL$="[153]"
  202. 2110 FORA=1TOLEN(A$)
  203. 2120 PRINT""TAB(A+DT-1);" ^";
  204. 2130 IFMID$(A$,A,1)="'"THEN2220
  205. 2140 GETG$
  206. 2150 IFTI$="000015"THENCL$="[158]"
  207. 2160 PRINT"";CL$;" TIME [146][152] "MID$(TI$,5,7);"[152]"
  208. 2170 IFG$=""ANDTI$<>"000030"THEN2140
  209. 2180 IFDN=1ANDTI$="000030"THENGOSUB3970:GOSUB3810:GOTO3470
  210. 2190 IFTI$="000030"THENGOSUB3970:GOSUB3810:GOSUB3150:GOTO1100
  211. 2200 PRINT""TAB(A+DT);G$;
  212. 2210 IFG$<>MID$(A$,A,1)THEN2260
  213. 2220 NEXTA:G$=A$:IFDN=1THENDN=0
  214. 2230 PRINT""TAB(A+DT-1);"  "
  215. 2240 SC(PL)=SC:T(PL)=T(PL)+SC(PL):GOSUB3810
  216. 2250 PRINT:D=0:WP=0:GOSUB3300:GOTO550
  217. 2260 PRINT""TAB(A+DT-1);"  "
  218. 2270 IFDN=1THENGOSUB3810:GOTO3470
  219. 2280 GOSUB3950:GOSUB3410:GOSUB3150
  220. 2290 GOSUB3810:GOTO1100
  221. 2300 DATA4,A STITCH IN TIME SAVES NINE,1,LONG JOHN SILVER,2,NEW YORK CITY
  222. 2310 DATA3,KITCHEN SINK,2,TORONTO ONTARIO,2,MONTREAL QUEBEC,1,TRUCK DRIVER
  223. 2320 DATA1,HIGHWAY PATROLMAN,2,DENVER COLORADO,4,IT TAKES ONE TO KNOW ONE
  224. 2330 DATA1,HOTEL DETECTIVE,2,CALGARY ALBERTA,3,SEWING MACHINE,1,ALICE COOPER
  225. 2340 DATA4,ALL FOR ONE AND ONE FOR ALL,1,SIR WILFRED LAURIER,1,PRESIDENT LINCOLN
  226. 2350 DATA2,ATLANTA GEORGIA,3,POPSICLE STICK,1,MARILYN MONROE,2,CHICAGO ILLINOIS
  227. 2360 DATA4,YOU WIN SOME YOU LOSE SOME,4,YOU CAN'T TAKE IT WITH YOU
  228. 2370 DATA1,FRANK SINATRA,2,MOVIE THEATRE,3,PUMPKIN PIE,1,JOHN LENNON
  229. 2380 DATA3,COMBUSTION ENGINE,4,TOO LITTLE TOO LATE,1,ALEXANDER GRAHAM BELL
  230. 2390 DATA2,FORT LAUTERDALE FLORIDA,3,ICECREAM CONE,1,THEODORE ROOSEVELT
  231. 2400 DATA2,CANARY ISLANDS,3,ANGEL FOOD CAKE,4,SEE YOU LATER ALIGATOR
  232. 2410 DATA1,CHARLTON HESTON,2,HOLLYWOOD CALIFORNIA,3,CIGARETTE BUT
  233. 2420 DATA4,TAKE A WALK ON THE WILD SIDE,1,QUEEN ELIZABETH,2,LONDON ENGLAND
  234. 2430 DATA3,CLOTHES CLOSET,4,TOO GOOD TO BE TRUE,1,HANS CHRISTIAN ANDERSON
  235. 2440 DATA2,LAS VEGAS NEVADA,3,MAPLE SYRUP FESTIVAL,1,SEAN CONNERY
  236. 2450 DATA4,IF THE SHOE FITS WEAR IT,4,DISTANT PASTURES APPEAR GREENER
  237. 2460 DATA1,MICHEAL JACKSON,1,HENRY FORD,2,BERLIN GERMANY,2,NOME ALASKA
  238. 2470 DATA3,WATERMELON SEED,3,CABBAGE PATCH DOLL,4,ONCE AND FOR ALL
  239. 2480 DATA1,PRINCE CHARLES,2,ATHENS GREECE,3,CHEST OF DRAWERS
  240. 2490 DATA4,ALL IN A DAYS WORK,1,CHRISTOPHER REEVE,1,JULES VERNE
  241. 2500 DATA2,DETROIT MICHIGAN,3,GRANDFATHER CLOCK,4,IT'S ALL UP TO YOU
  242. 2510 DATA1,LAWRENCE WELK,2,FREEPORT BAHAMAS,2,MONTGOMERY ALABAMA
  243. 2520 DATA3,BEDROOM LAMP,3,PHONOGRAPH RECORD,4,TAKE A LOAD OFF YOUR FEET
  244. 2530 DATA1,MARGARET THATCHER,2,PARIS FRANCE,3,DOG COLLAR
  245. 2540 DATA4,NOW YOU SEE IT NOW YOU DON'T,1,RONALD REAGAN,2,DAYTON OHIO
  246. 2550 DATA3,CARPET SWEEPER,4,BREAK A LEG,1,INDIANA JONES,2,CATMANDU NEPAL
  247. 2560 DATA3,BOOK MARKER,4,THE MORE THE MERRIER,1,MARK TWAIN,2,OMAHA NEBRASKA
  248. 2570 DATA3,NAIL CLIPPER,4,MONKEY SEE MONKEY DO,1,ROBERT BLAKE,1,JOHNNY CARSON
  249. 2580 DATA2,SYDNEY AUSTRALIA,2,GLASGOW SCOTLAND,3,PAINT STRIPPER,3,GOLF CLUB
  250. 2590 DATA4,LOOSE LIPS SINK SHIPS,4,SPARE THE ROD SPOIL THE CHILD,1,PETER PIPER
  251. 2600 DATA1,CARRY GRANT,2,NASHVILLE TENNESEE,3,NEWSPAPER ADVERTISEMENT
  252. 2610 DATA3,DINGBAT,1,ARCHIE BUNKER,4,GO FLY A KITE,3,MEDICINE CABINET
  253. 2620 DATA3,TOOTH BRUSH HOLDER,1,ROBIN WILLIAMS,1,MERV GRIFFIN,1,JAKE LAMOTTA
  254. 2630 DATA4,FICKLE FINGER OF FATE,4,PICK UP THE PIECES,1,SUGAR RAY LEONARD
  255. 2640 DATA1,BABE RUTH,1,WALTER CRONKITE,1,ROBERT LOUIS STEVENSON
  256. 2650 DATA2,DUBLIN IRELAND,2,WARSAW POLAND,2,MOSCOW RUSSIA,2,ACAPULCO MEXICO
  257. 2660 DATA2,EDINBURG SCOTLAND,4,GIVE ME A BREAK,4,SWEET AND SEXY
  258. 2670 DATA4,FAMOUS LAST WORDS,4,GIVE IT A REST,2,EDMONTON ALBERTA
  259. 2680 DATA4,TO BE OR NOT TO BE,1,WILLIAM SHAKESPEAR,4,TRUTH OR CONSEQUENCES
  260. 2690 DATA1,KARL MARX,1,JACK THE RIPPER,4,NAKED AS A JAYBIRD,1,CARL REINER
  261. 2700 DATA3,CARBON PAPER,1,ALBERT EINSTIEN,1,WOODY ALLEN,1,BROOKE SHIELDS
  262. 2710 DATA1,BARNEY MILLER,3,ORANGE JUICE,4,LIVE AND LET LIVE,3,HOT WATER HEATER
  263. 2720 DATA3,CHOCOLATE CHIP COOKIE,1,BERT LANCASTER,1,SIGMUND FREUD
  264. 2730 DATA3,BIRTHDAY SUIT,4,IT'S A SMALL WORLD,3,TELEPHONE POLE
  265. 2740 DATA3,AIR RAID SIREN,1,MEREDITH BAXTER BIRNEY,4,TO EACH HIS OWN
  266. 2750 DATA3,PICTURE POST CARD,2,PEKING CHINA,1,RICHARD NIXON,1,CANDICE BERGEN
  267. 2760 DATA1,CHRISTOPHER COLUMBUS,4,WHAT YOU SEE IS WHAT YOU GET
  268. 2770 DATA3,GARBAGE DISPOSAL,4,THE GREAT OUTDOORS,1,ART LINKLETTER
  269. 2780 DATA5,THE WINDS OF WAR,5,ONE FLEW OVER THE CUCKOOS NEST
  270. 2790 DATA5,AN AMERICAN WEREWOLF IN LONDON,5,THE FRENCH CONNECTION
  271. 2800 DATA1,MARTIN LUTHER KING,2,LAS VEGAS NEVADA,3,ONE ARMED BANDIT
  272. 2810 DATA5,THE EXORCIST,5,THE GREAT TRAIN ROBBERY,5,ALICE IN WONDERLAND
  273. 2820 DATA5,THE SHINING,1,JACK NICHOLSON,5,JUDGEMENT AT NUREMBURG
  274. 2830 DATA3,CUP OF COFFEE,5,THE WAY WE WERE,5,THE TONIGHT SHOW,5,THE WALTONS
  275. 2840 DATA5,THE GUNS OF NAVARONE,1,PAUL SIMON,1,ART GARFUNKEL
  276. 2850 DATA5,THE TEN COMMANDMENTS,3,BOWL OF CEREAL,5,SMOKEY AND THE BANDIT
  277. 2860 DATA5,LAST TANGO IN PARIS,1,MARLON BRANDO,5,THE LEGEND OF SLEEPY HOLLOW
  278. 2870 DATA5,THE TWILIGHT ZONE,5,THE SOUND OF MUSIC,5,JASON AND THE ARGONAUTS
  279. 2880 DATA5,THE MEANING OF LIFE,5,IT'S A MAD MAD MAD MAD WORLD
  280. 2890 DATA1,SPENCER TRACY,3,MOVIE CAMERA,2,LOS ANGELES CALIFORNIA
  281. 2900 DATA5,REVENGE OF THE PINK PANTHER,1,PETER SELLERS,3,WINDSHIELD WIPER
  282. 2910 DATA4,THE BEST IN LIFE IS FREE,1,PETER OTOOLE,5,LAWRENCE OF ARABIA
  283. 2920 DATA3,AIRPORT TERMINAL,2,LIVERPOOL ENGLAND,1,JOHN TRIVOLTA
  284. 2930 DATA1,JULIUS CAESAR,1,JOAN OF ARC,1,ABRAHAM LINCOLN,5,STORMY WEATHER
  285. 2940 DATA1,AL JOLSON,1,JUDY GARLAND,1,ELVIS PRESLEY,1,MITCH MILLER
  286. 2950 DATA1,ELTON JOHN,1,WOLFGANG AMADEUS MOZART,1,PABLO PICASSO
  287. 2960 DATA1,SALVADOR DALI,5,FIDDLER ON THE ROOF,5,MY FAIR LADY,5,HELLO DOLLY
  288. 2970 DATA5,BAREFOOT IN THE PARK,5,THE ODD COUPLE,1,MICHELANGELO
  289. 2980 DATA5,RAIDERS OF THE LOST ARK,5,ALL THE PRESIDENT'S MEN
  290. 2990 DATA1,INGRID BERGMAN,5,NANOOK OF THE NORTH,4,THE BEST YEARS OF OUR LIVES
  291. 3000 DATA5,SEARCH FOR TOMMOROW,1,CAPTAIN KANGAROO,5,AMERICAN BANDSTAND
  292. 3010 DATA5,ALL IN THE FAMILY,5,WIDE WORLD OF SPORTS,4,THROW OUT THE GAUNTLET
  293. 3020 DATA3,BLACK HOLE,1,COUNT DRACULA,1,WINSTON CHURCHILL,1,ROBIN HOOD
  294. 3030 DATA1,CHARLES DARWIN,1,SIR ISSAC NEWTON,1,LEONARDO DA VINCI
  295. 3040 DATA1,BRIGITTE BARDOT,1,MARY TYLER MOORE,1,ATTILA THE HUN
  296. 3050 DATA3,STATUE OF LIBERTY,3,THE AMERICAN REVOLUTION,1,EDGAR ALLAN POE
  297. 3060 DATA2,MINNEAPOLIS MINNISOTA,2,MILWAUKEE WISCONSIN,3,GATLING GUN
  298. 3070 DATA2,STOCKHOLM SWEDEN,2,MADRID SPAIN,4,BETTER LATE THAN NEVER
  299. 3080 DATA1,FRANCIS BACON,1,CLEOPATRA,3,SWEET POTATOES,3,ROAST BEEF,3,BEEF STEW
  300. 3090 DATA3,FRIED CHICKEN,3,ROLLER SKATES,3,SKIPPING ROPE,1,GEORGE WASHINGTON
  301. 3100 DATA1,LEO TOLSTOY,1,CHARLIE BROWN,5,THE MALTESE FALCON,5,CITIZEN KANE
  302. 3110 DATA4,AT A SNAIL'S PACE,4,JUST A MOMENT,4,ALL THE TEA IN CHINA
  303. 3120 DATA4,BEAUTY IS ONLY SKIN DEEP,4,QUICK AS A WINK,4,SELLING LIKE HOTCAKES
  304. 3130 DATA4,KNEE HIGH TO A GRASSHOPPER,4,HIGH AS A KITE,4,A KING'S RANSOM
  305. 3140 DATA4,FASTER THAN A SPEEDING BULLET,4,BLOOD IS THICKER THAN WATER
  306. 3150 FORT=1TO1800:NEXTT
  307. 3160 PRINT"                                       [152]"
  308. 3170 PRINT""TAB(23)" NUMBER";F;"[157] "
  309. 3180 FORCL=1TO5
  310. 3190 PRINT"                                       "
  311. 3200 NEXTCL
  312. 3210 RETURN
  313. 3220 POKE54277,28:POKE54278,255:POKE54276,17:POKE54273,70
  314. 3230 FORT=1TO100:NEXTT:POKE54273,0
  315. 3240 RETURN
  316. 3250 POKE54277,28:POKE54278,255:POKE54276,17:POKE54273,SZ
  317. 3260 FORT=1TO75:NEXTT
  318. 3270 POKE54273,0
  319. 3280 FORT=1TO100:NEXTT:POKE54273,0
  320. 3290 RETURN
  321. 3300 POKE54277,28:POKE54278,255:POKE54276,17
  322. 3310 FORSN=1TO10
  323. 3320 POKE54273,30
  324. 3330 PRINT"                                        "
  325. 3340 FORT=1TO20:NEXTT
  326. 3350 POKE54273,60
  327. 3360 PRINT"[153]       THAT IS ABSOLUTELY CORRECT       [152]"
  328. 3370 FORT=1TO20:NEXTT
  329. 3380 NEXTSN
  330. 3390 POKE54273,0
  331. 3400 RETURN
  332. 3410 POKE54277,28:POKE54278,255:POKE54276,17
  333. 3420 FORSN=60TO20STEP-2
  334. 3430 POKE54273,SN
  335. 3440 FORT=1TOSN:NEXTT:NEXTSN
  336. 3450 POKE54273,0
  337. 3460 RETURN
  338. 3470 PRINT"[150]        SORRY ! THE SOLUTION WAS        [152]"
  339. 3480 POKE54277,28:POKE54278,255:POKE54276,17
  340. 3490 FORSN=50TO10STEP-1
  341. 3500 POKE54273,SN
  342. 3510 FORT=1TO5:NEXTT
  343. 3520 POKE54273,50-SN
  344. 3530 FORT=1TO5:NEXTT
  345. 3540 NEXTSN
  346. 3550 POKE54273,0
  347. 3560 POKE54277,28:POKE54278,255:POKE54276,17
  348. 3570 PRINT""TAB(A+DT-1);"  "
  349. 3580 FORA=1TOLEN(A$)
  350. 3590 POKE54273,80
  351. 3600 PRINT"[152]"TAB(A+DT-1);" ^"
  352. 3610 FORT=1TO20:NEXTT
  353. 3620 PRINT""TAB(A+DT)MID$(A$,A,1)
  354. 3630 POKE54273,0
  355. 3640 FORT=1TO10:NEXTT
  356. 3650 NEXTA
  357. 3660 PRINT""TAB(A+DT-1);"  "
  358. 3670 IFWG=GWTHENGOSUB2230
  359. 3680 D=0:WP=0:DN=0:PRINT:GOTO560
  360. 3690 PRINT"[147][152]"
  361. 3700 BT=0
  362. 3710 FORSK=1TOX
  363. 3720 IFT(SK)>BTTHENBT=T(SK)
  364. 3730 NEXTSK
  365. 3740 PRINT:PRINT" NUMBER PLAYED:";F;"[157] ":PRINT:PRINT
  366. 3750 FORSK=1TOX
  367. 3760 CO$="[152]":IFBT=T(SK)THENCO$=""
  368. 3770 PRINT:PRINTCO$"        PLAYER";SK;"----- SCORE:"T(SK);"[152]"
  369. 3780 NEXTSK
  370. 3790 PRINT
  371. 3800 GOTO550
  372. 3810 IFX=1THEN3830
  373. 3820 PL=PL+1:AP=1:IFPL=X+1THENPL=1
  374. 3830 RETURN
  375. 3840 POKE54277,28:POKE54278,255:POKE54276,33
  376. 3850 FORSD=1TO10
  377. 3860 POKE54273,5
  378. 3870 PRINT" [150] TIME [146][152]15"
  379. 3880 FORT=1TO50:NEXTT
  380. 3890 POKE54273,5
  381. 3900 PRINT"[150] TIME [146][152] 15"
  382. 3910 FORT=1TO50:NEXTT
  383. 3920 NEXTSD:POKE54273,0
  384. 3930 FORT=1TO600:NEXTT
  385. 3940 RETURN
  386. 3950 PRINT"[158]         SORRY THAT IS INCORRECT       [152]"
  387. 3960 RETURN
  388. 3970 POKE54277,28:POKE54278,255:POKE54276,33
  389. 3980 FORSD=1TO10
  390. 3990 POKE54273,10
  391. 4000 PRINT" [150] TIME [146][152]30"
  392. 4010 FORT=1TO50:NEXTT
  393. 4020 POKE54273,5
  394. 4030 PRINT"[150] TIME [146][152] 30"
  395. 4040 FORT=1TO50:NEXTT
  396. 4050 NEXTSD:POKE54273,0
  397. 4060 FORT=1TO600:NEXTT
  398. 4070 RETURN
  399.